home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 2 / 002.d81 / word stripper (.txt) < prev   
Encoding:
Commodore BASIC  |  1984-01-01  |  620 b   |  25 lines
  1. 10 ifx=0thenx=1:load"case converter",8,1
  2. 20 ifx=1thenx=2:load"instring",8,1
  3. 30 print"[147]":poke53281,0:poke53280,6
  4. 35 printchr$(14)
  5. 40 sp$=" ":m%=0
  6. 50 print"string you want split":inputcc$
  7. 55 print"[147][208]rocessing":printcc$:print
  8. 60 sys50000cc$: rem    case convert
  9. 70 sys49152sp$cc$m%
  10. 80 ifm%=1thencc$=mid$(cc$,x):goto70
  11. 90 ifm%>1thent$=left$(cc$,m%-1):gosub30000:cc$=mid$(cc$,m%+1):goto70
  12. 105 t$=cc$:gosub30000
  13. 110 goto50
  14. 200 :
  15. 30000 ift$=""then30030
  16. 30010 ift$=" "then30030
  17. 30015 iflen(t$)>1thentt$=right$(t$,1):goto40000
  18. 30016 iflen(t$)>1thenift$<"0"or(t$<"a"andt$>"9")thent$=mid$(t$,2):goto30000
  19. 30017 iflen(t$)>1thenift$>"z"thent$=mid$(t$,2):goto30000
  20. 30018 poke53281,0:poke646,1
  21. 30020 printchr$(34)t$chr$(34)
  22. 30030 return
  23. 40000 iftt$<"0"or(tt$<"a" and tt$>"9")thent$=left$(t$,len(t$)-1):goto30000
  24. 40001 goto30016
  25.